(occur-engine): Initial *Occur* output not undoable.

diff --git a/lisp/replace.el b/lisp/replace.el
index 6ce961c28a7729f577a9086df593706bec831eb9..ea1bd53e688764b0837c6281542cfdd9f46565cc 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1061,6 +1061,8 @@ See also `multi-occur'."
                            title-face prefix-face match-face keep-props)
   (with-current-buffer out-buf
     (let ((globalcount 0)
+         ;; Don't generate undo entries for creation of the initial contents.
+         (buffer-undo-list t)
          (coding nil))
       ;; Map over all the buffers
       (dolist (buf buffers)